#/usr/bin/perl
use warnings;
use strict;
use TestCase;

my $tc = TestCase->create({'is_critical'=>0},\@ARGV);

$tc->log("this is tc 4");
$tc->status("failed");

$tc->end();